home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 January / 1987-01.d64 / medium res demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  25 lines
  1. 1 print"[147] 'medium resolution 64' must be"
  2. 2 print" activated before this program will":print" function properly."
  3. 3 fori=1to6000:next
  4. 100 xf=28:yf=20:x0=39:y0=25:sc=53281:bo=53280:f=80:g=50:cf=16:ad=51000
  5. 110 pokesc,0:pokebo,0:gosub270:gosub300
  6. 120 forx=0to79:y=.:sys ad,x,y,6:y=49:sys ad,x,y,6:next
  7. 130 fory=0to49:x=.:sys ad,x,y,6:x=79:sys ad,x,y,6:next
  8. 140 fori=0to15:sys ad,i,i,6:sys ad,(79-i),(49-i),6:sys ad,i,(49-i),6
  9. 150 sys ad,(79-i),i,6:next:forx=16to63:y=15:sys ad,x,y,7:y=34:sys ad,x,y,7:next
  10. 160 fory=16to33:x=16:sys ad,x,y,7:x=63:sys ad,x,y,7:next
  11. 170 print""tab(10)"80 by 50 medium-res"
  12. 180 gosub300:k=0:c=1:forz=1to7:c=c+1
  13. 190 fory=0to49step5:forx=ktok+5:sys ad,x,y,c:y=y+1:nextx,y:k=k+12:nextz:k=6
  14. 200 forz=1to6:c=c+1:fory=49to0step-5:forx=ktok+5:sys ad,x,y,c:y=y-1:nextx,y
  15. 210 k=k+12:nextz:gosub300
  16. 220 fori=0to2*(NULL)step(NULL)/85:x=x0+cos(i)*xf:y=y0+sin(i)*yf:sys ad,x,y,6:next
  17. 230 fori=0to2*(NULL)step(NULL)/40:x=39.5+cos(i)*10:y=24.5+sin(i)*8:sys ad,x,y,5:next
  18. 240 gosub300
  19. 250 fori=1to200:x=rnd(1)*f:y=rnd(1)*g:c=rnd(1)*cf:sys ad,x,y,c:next
  20. 260 gosub300:end
  21. 270 print"[147]    after each image is drawn, press"
  22. 280 printtab(10)"any key to continue."
  23. 290 printtab(12)"(press any key)":return
  24. 300 poke198,0:wait198,1:poke198,0:print"[147]":return
  25.